n := 0 -5;
if n then i := n else i := 0 - n fi;
fact := 1;
while i do fact := fact * i; i := i -1 od
